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—BASSRSTS_CVT 15-5ep-1 138% th 96: 35 AX-11 Bliss-32 Ph es Page 1 
1a-Sep- 9 BASRTL.SRCJBASRSTSCV.B52;1 (1) 
608) MODULE BASSRSTS_CVT ( ' 
6 IDENT = '1-005' ' File: BASRSTSCV.B32 
000 )«z 
i ae 
one ieuaeenaenennnerenstnatenereetreereneneererteetrertentenerentnentnnereerneens 
'e 
0008 'w COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
0009 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
Bate ALL RIGHTS RESERVED. 
ie THIS fo eens IS FURNISHED UNDER AL -ENSE AND MAY BE USED AND corte 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'w COPIES THEREOF MAY NOT BE PROVIDE R C HERWISE MADE AVAILABLE TO ANY 
'® QTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
® 
ca 
® 
® 
® 
® 
: i 
7 TRANSFERRED. * 
:® ® 
i te INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'* AND SHOULD NCi BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 

* 

® 

* 

® 

* 

® 


iw DIGITAL ASSUMES NO RESPONS Bl 


IBILIT 
'® SOFTWARE ON EQUIPMENT WHICH 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


VR RR RARER EAEARRERRE REE 
i 


Pe Se Se Se Oe Oe Ge Se Se Oe Ge Se Se Ge Se Gs Se Se Se Ss Se Se Se Se FHS SH ee Se ee 


FACILITY: BASIC=- US=-2 Miscellaneous 
ABSTRACT: 
This module contains the gees pape: CVT functions: CVT$%, 


CVTZ$S, CVTSF, CVTF$, and the double precision versions of 
CVTSF and CVTFS. 


SoOoOOCoCSOOSOOOoOOCOOoOOSCOOSCOOCOOOoOOOoOSoO 
ne ee ew fee la lo lololololololololololololo) 
WANA AAI AAR PU PUNINUNINPYPINID 2 2 PO OO Oe 
NOUS ON —O OONAUSWN—OOOVNOUS wy 


WN OC OBNOAUE WN “OO ONAUES WN O ODNAUES WN (OO ODNAUES WN (ODO ODNOUS WN — 
ee ee kt ik a a kk kk a kd dd dd od I IOOOO 
* 


. 
MANA BH ELK & FAWN WANWN NNN POPU NONININININODY 2 2 2 OS OS Os 


} 
; i 
: 0038 ' 
; $444 ENVIRONMENT: VAX-11 User Mode 
: Boe AUTHOR: John Sauter, CREATION DATE: 26-FEB-1979 
; 004 ! MODIFIED BY: 
; 0044 : 
; 0045 ! 1-001 - Original. JBS 26-FEB-1979 } 
3 0046 ! 1-002 - If the string provided is too short for the conversion function, 
: 0047 : F d with zeros. JBS 27-FEB- 
; 0048 ! 1-003 - Change LIB$S and OTS$S to STR$. JBS 21-MAY-1979 
$ 0049 ! 1-004 = Make BASSCVT_D_S take its input by value. JBS 20-AUG-1979 
; 8930 ! 1-005 - Sign-extend Thé result of BASSCVT_S_W to 32 bits. JBS 24-SEP-1979 
; 3036 
; 005 ! <BLF /PAGE> 


| 


————— 


D 16 
BASSRSTS_CVT 16-Sep-1984 01:06: 5 AX-11 Bliss-32 V4.0-74 Page 
1-005 12-80-1384 91:96:36 BASRTL. REIBASRSTECV 82:1 . (2) 
; 5 054 1! 
: 6 055 1 ! SWITCHES: 
: a B28 1! 
; 0057 1 
; 44 8238 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
3. OF Boe} 1! 
; § 061 1 ! LINKAGES: 
; § Bees 1! 
>; 64 0065 1! NONE 
; 0064 1! 
: 66 0065 1 ! TABLE OF CONTENTS: 
;. Oo 0066 1! 
; 68 0067 1 
; 69 0068 1 FORWARD ROUTINE 
; 0069 1 BASSCVT_W_S : NOVALUE, ! Convert word to strin 
p 2 0070 1 BASSCVT_S_w, ! Convert pian to wor 
fe 0071 1 BASSCVT_F_S : NOVALUE, ! Convert float ng to string 
ae 0072 1 BASSCVT_D_S : NOVALUE, ' Convert double to —— 
eae 00735 (1 BASSCVT_S_F, ! Convert string to floating 
. 0074 1 BASSCVT_S_D : NOVALUE; ! Convert string to double 
; 0075 1 
a 0076 1! 
; 78 0077 1 ! INCLUDE FILES: 
ae 8 00 1! 
2 0079 1 
; Bt ove? : REQUIRE ‘RTLIN:RILPSECT'; ! Macros for defining psects 
; 0176 1 LIBRARY 'RTLSTARLE'; ! System definitions 
; ws Bee 1 
ie: 178 1! 
; 86 0179 1 ! MACROS: 
;. OF 0180 1! 
; 0181 1! NONE 
; ww Biss 1! 
; 90 0183 1 ! EQUATED SYMBOLS: 
; 0184 1! 
; 0185 1! NONE 
3; 9 0186 1! 
; 94 0187 1 ! PSECTS: 
; 0188 #1! 
3 4 8189 ! DECLARE _PSECTS (BAS); ! Declare psects for BASS facility 
; 0191 1 ! OWN STORAGE: 
; FP 3136 1! 
: 100 0195 1! NONE 
; 101 0194 1! 
; 106 0195 1 ! EXTERNAL REFERENCES: 
3; 10 3138 1! 
; 104 197 1 
: 105 0198 1 EXTERNAL ROUTINE 
; 106 0199 1 BASSS$STOP : NOVALUE, ’ tignets fatal error 
3s tor 0200 1 STRSGET1_DX, ! Allocate a string 
§ H's aH : STRSFREET_DX; ! Deallocate a string 


epee a eke We oop, ey Se Gey Women eepen tee 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BASSRSTS_CVT hese -1984 01:06: AX-11 Bliss-32 V4.0-74 Pa 3 
we ht 12288-1382 97 98:36 BASRTL.SRCIBASRSTSCV.B 2;1 ” (3) 
1 03 1 GLOBAL ROUTINE BASSCVT_W_S ( ' Convert word to string 
1 04 STRING_DESC, ' Descriptor for returned string 
1 05 VAL ! Word to convert 
1 06 ) : NOVALUE = 
1 07 
1 08 '4+ 
! ° FUNCTIONAL DESCRIPTION: 
1 1 i Changes a word to a string prunes the bytes in the process. 
§ 1 ! There is no justification for portent ng the bytes except 
! compatability with RSTS/E BASIC-PLUS. 
3 1 ! FORMAL PARAMETERS: 
2 1 i STRING_DESC.wt.d Descriptor for the result string 
§ } } AL.rw.v The word to be ‘'converted"’ 
2 g ; IMPLICIT INPUTS: 
5 NONE 
3 ; IMPLICIT OUTPUTS: 
! NONE 
i 
i 
} 
le 


BEGIN 


MAP 
VAL : VECTOR C2, BYTE, 
STRING_DESC : REF BLOCK C8, BYTE); 


LOCAL 
STRING : REF VECTOR (65535, BYTE); 


NOAOUEWN @ OOO NAUS WN $O OONAULS WN —“OVDONGAYSWNOO 


‘6 
: Be sure the result eer sng See omty enough storage to hold the 
: two bytes we will be putting in it. 


STRSFREE1_DX (.STRING_DESC); 
STRSGET1_BX (ZREF (2)> .STRING_DES®); 


'¢ 
Now permute the bytes, putting the word into the string. 
STRING MA EHS CDSCSA_POINTER); 

VAL (03; 


PPPS III WAN 


7 - . 


WON VSWR OOO 


ermine E93 = : 


A — 
Be Be Se Se Be Se Se Be Ge Ge Be Se Ge Se Se Ge Se Se Ge Se Se Se Se Ge Se Ge Fe Ge Ge Ge Ge Ge Se Se Ge Se Se Se Se Se Ge Se SF Se SS Ge Se SHS S586 Sse Ge Se ee 


F 16 
16-Sep-138¢ 01 AX=11 Bliss-32 v4.0-7 Page 
8s 19E5 11:88: o BASRTL< SRC IBASRSTSCV 632; 1 : 


0260 2 RETURN; 
0261 1 END; ! end of BASSCVT_wW_S 

BASSRSTS_CVT 

\1-005\ 

BASS$STOP, STRSGET1_DX 

LEXTRN STRSFREE1_D 

-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


0004 00000 .ENTRY BASSCVT_W_S, Save R2 : 

5E 04 C2 9000¢ SUBL2 P ; 

52 04 AC DO 0000 OVL  STRING_DESC, R2 : 

52 DD 00009 PUSHL R : 

000000006 00 Q1 FB 90008 CALLS #1, STRSFREE1_Dx ; 
2 OD 0001 PUSHL F 

04 AE 02 0 00014 OVL #2, 4(SP) : 

04 AE 9F 00018 PUSHAB : 

000000006 00 02 FB 0001B CALLS #2, STRSGET! Dx ; 
50 04 A2 DO 00022 MOVL  4(R2), STRING : 

60 09 AC 90 00026 MOVB ~~ VAL +1 STRING) : 

01 AO 08 AC 90 0002A MOVB VAL, i(STRING) : 

04 0002F RET : 


; Routine Size: 48 bytes, Routine Base: _BASSCODE + 0000 


: 170 0262 1 


16 
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5 
\7¢ 63 GLOBAL ROUTINE BASSCVT_S_wW ( ! Convert string to word 
Vie re: ; STRING_DESC ! Descriptor for string 
175 
176 $$ 144 
a4 $8 FUNCTIONAL DESCRIPTION: 
179 % ' Changes a —— to a word pte the bytes in the process. 
180 71 : There is no justification for permet ng the bytes except 
131 Le: } compatability with RSTS/E BASIC-PLUS. 
188 a } FORMAL PARAMETERS: 
185 76 : STRING_DESC.rt.d Descriptor for the strin 
186 $8 ! P . 
187 sie ' IMPLICIT INPUTS: 
188 79 ‘ 
189 280 } NONE 
190 281 } 
191 see ! IMPLICIT OUTPUTS: 
192 28 : 
193 284 ! NONE 
194 285 ! 
195 286 ' ROUTINE VALUE: 
196 287 ! K 
197 288 ‘ The resultant 16-bit word. 
198 289 ! 
199 290 ! SIDE EFFECTS: 
200 291 ! 
201 $36 ! NONE 
202 29 } 
203 294 !<= 
spe 295 
05 296 BEGIN 
206 297 
298 
299 
300 
301 
302 
303 
304 
305 
306 


SOSCSSOSCOOOC COCO OCOSOSOCOOSOSSSOSOSSOSOSOOSOOCOVOCOO COO SOOSOOOOOOOOOOOOOOOOO 


PROPOPOPOPOPOPOPONPOPOPONPOPUNIPUNINININININIDD 2 2 2 2 oe 


207 MAP 
208 STRING_DESC : REF BLOCK (8, BYTE); 
209 0 
210 0 CAL 
211 0 RESULT : VECTOR (4, BYTE, SIGNED], 
sig 3 STRING : REF VECTOR C, BYTE, SIGNED]; 
214 0 + 
$\2 309 : Permute the bytes, putting the string into the word. 
217 308 STRING = .STRING_DESC CDSCSA_POINTER]; 
218 309 RESULT = 0; 
219 310 RESULT CO] = CIF (.STRING_DESC COSCSW_LENGTH] LEQU 1) THEN O ELSE .STRING (1)); 
$30 of ss RESULT C1] = CIF (.STRING_DESC CDOSCSW_LENGTH) LEQU 0) THEN 0 ELSE .STRING (0]); 
$52 313 ! Sign-extend the result, so if the caller is storing the result in a longword a 
$$7 $3 ; sign test will still work. 
$58 318 RESULT fe; = (IF (.RESULT ft LSS G) THEN -1 ELSE 9}; 
226 317 RESULT (3) = (IF (.RESULT C1) LSS 0) THEN -1 ELSE 0); 
$$4 318 RETURN (.RESULT); 
28 319 END; ! end of BASSCVT_W_S 
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_BASSCODE + 0030 


Routine Base: 


1 


76 bytes, 


0320 


; Routine Size: 


16 
BASSRSTS_CVT 1b-ge -1984 01:06: AX-11 Bliss-32 V4.0-74 Page 
witty 1 30071388 9:98:36 EBASRTL~SRe BASRSTEey B82: 1 . (5) 
: 1 83 1 1 GLOBAL ROUTINE BASSCVT_F_S ( ! Convert floating to string : 
: ¢ ¢ 1 STRING_DESC, ! Descriptor for returned string 
; 8 1 VAL ! Floating number to convert 
: 4 1 ) : NOVALUE = 
$ 5 0325 1 
; 3 8 § 1 l+4 
: $ base : FUNCTIONAL DESCRIPTION: 
; 239 0329 1! Changes a eg ete value to a se pereut ing the bytes in the process. 
; 240 0330 1! There is no justification for perau ing the bytes except 
: Sue 83 1 : compatability with RSTS/E BASIC-PLUS. 
; 4 0385 1 ! FORMAL PARAMETERS: 
: 244 0334 1! 
: 245 0335 1! STRING_DESC.wt.d Descriptor for the result string ; 
> 246 0336 1! VAL.rf.v The floating value to be ‘'converted’ 
3 267 0337 1! 
; 248 0338 1 ! IMPLICIT INPUTS: 
> 249 0339 1! 
; 250 0340 1! NONE 
> 251 0341 1! 
; 252 Beg 1! IMPLICIT OUTPUTS: 
3 299 0345 1! 
3; «254 0344 1! NONE 
: 255 0345 ‘ ! 
> 256 0346 i ! ROUTINE VALUE: 
3 gor 0347 1 ! COMPLETION CODES: 
>; 258 0348 1! 
; 259 0349 1! NONE 
; 260 0350 1! 
; 261 - 0351 1 =! SIDE EFFECTS: 
: 262 Be2¢ 1! 
3 263 0355 1! NONE 
> 264 0354 1! 
; 265 0355 1 !-- 
; 266 0356 1 
: 267 0357 2 BEGIN 
; 268 0358 2 
; 269 0359 2 Pp 
: 270 0360 VAL : VECTOR C4, BYTE), 
> 271 0361 STRING_DESC : REF BLOCK C8, BYTE); 
s ef 0366 
; a 0363 2 LOCAL 
: 274 0364 STRING : REF VECTOR (65535, BYTE); 
. are 0365 
3; 276 0366 '¢ ‘ 
: 277 0367 ! Be sure the result pertng has galy enough storage to hold the 
; 8 Bee four bytes we will be putting in it. 
: 80 $350 STRSFREE1_ DX (.STRING_DESC); 
: + Be7) STRSGET1_Bx (2REF (4)7 .STRING_DESC); 
; $88 0378 : Now permute the bytes, putting the floating value into the string. 
; Re 0375 STRING = .STRING_D CDOSCSA_POINTER]; 
; 286 378 STRING fo) = .VAC : 
; a 037 STRING C1) = .VAL 3 


ooo 
Wr 


; Routine Size: 


= ovat £d33 


0004 00000 

5 04 cé Bans 
5 04 as D B88 

52 DD 00009 

00 01 FB 88008 
52 DD 0001 

AE 04 dO 00014 

04 AE 9F 00018 

00 02 FB 00018 

50 04 A2 00 00022 

60 0B AC 90 00026 

AO OA AC 90 0002A 
AO 09 AC 90 tH 

AO 08 AC 90 00034 

04 00039 


Routine Base: _BASSCODE + 007C 


18-Sep-19 
-seo- 
10-800-198 


:56:37 —EBASRTL SRE TBASRS TSC 682; 1 


! end of BASSCVT_F_S 


BASSCVT_F_S, Save R2 
STRING_DESC, R2 

#1, STRSFREE1_DXx 

#4, 4(SP) 
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BASSRSTS_CVT 16-Sep-1984 01:06: AX-11 Bliss-32 V4.0-74 
\ 5 1 ~300n 138% 91 98:38 YBASRTL SRe BASRS Tey B82: 1 
> 294 3 1 GLOBAL ROUTINE BASSCVT_D_S ( ! Convert double to string 
3 <9 4 1 STRING _DESC, ! Descriptor for returned string 
$ 39 mB VAL ! Double number to convert 
: 9 $ 1 ) : NOVALUE = 

: 298 1 

: 299 8 1 !4+ 

: 89 34 : FUNCTIONAL DESCRIPTION: 

; 30 6 wee Changes a double value to a string, permuting the bytes in the process. 
: 8 3 1! there is no justification for pernating the Bytes except , 

3 4 8 37 ! compatability with RSTS/E BASIC=-PLUS. 

: 06 8 95 1 ! FORMAL PARAMETERS: 

: 307 396 1! 

; 308 3444 1! STRING_DESC.wt.d Descriptor for the result string 

3 +4 3443 : VAL.rd.v The doub.e value to be ‘'converted’’ 

s 6ST) 0400 1 ! IMPLICIT INPUTS: 

: s1§ 0401 1! 

a ) 0402 1! NONE 

3: 314 0403 1! 

s 315 0404 1 ! IMPLICIT OUTPUTS: 

; 316 0405 1! 

3 Si? 0406 1! NONE 

s Sw 0407 1! 

; 319 0408 1 ! ROUTINE VALUE: 

; 320 0409 1 ! COMPLETION CODES: 

». Sey 0410 1! 

$ $56 0411 1! NONE 

3; ie 041 1! 

3: 324 041 1 ! SIDE EFFECTS: 

s sed 0414 1! 

; 326 0415 1! NONE 

s Ser 0416 1! 

s 328 0417 1 !e- 

3s Sev 0418 1 

: 330 0419 2 BEGIN 

s SS 0420 2 

; $36 0421 § P 

s 3 bes¢ VAL : VECTOR (8, BYTE), 

: 334 O42 : STRING_DESC : REF BLOCK (8, BYTE); 

3; 336 es LOCAL 

3 $35 bess § STRING : REF VECTOR (65535, BYTE); 

3; 339 0428 § + 

: 340 oh 34 ! Be sure the result string has only enough storage to hold the 

: 3s Beas } eight bytes we will be putting in it. 

s : 0432 STRSFREE1_ DX (.STRING_DESC); 

: 44 435 os STRSGET1_BX (ZREF (8)> .STRING_DESC); 

3 #6 at? Now permute the bytes, putting the double value into the string. 

: 48 <3 STRING = ,STRING_D $ CDSCSA_POINTER]; 

> 349 04 8 STRING fo} = .VAC (7); 

; 350 43 STRING C1) = .VAL (6); 
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BASSRSTS_CVT ibese -1984 01:06: AX-11 Bliss-32 V4.0-74 
me ht 1a-8ep-19 4 97 96:36 BASRTL. REIBASRE TSC BS2s1 
3 1 0440 STRING § = .VAL (5); 
3 ¢ 441 STRING = .VAL (4); 
3 44 STRING (4) = .VAL 3 $ 
; 354 44 STRING (5) = .VAL 3 
. 444 STRING § = .VAL (1); 
3 2 445 STRING = .VAL (OJ; 
; 35 446 RETURN; 
; 358 0447 END; ! end of BASS$CVT_D_S 
0004 00000 .ENTRY BASSCVT_D_S, Save R2 
5 04 C2 BRnog SUBL2 
5 04 AC 00 0000 MOVL § STRING_DESC, R2 
52 DD 00009 PUSHL 
@0000000G 00 01 FB 0000B CALLS #1, STRSFREE1_DX 
52 DD 00012 PUSHL 
04 AE 08 DO 00014 OVL #8, 4(SP) 
04 AE 9F 00018 PUSHAB 4(SP) 
00000000G 00 02 FB 0001B CALLS #2, STRSGET1_DX 
50 04 A2 00 00022 MOVL 4(R2), STRING 
60 OF 90 00026 MOVB AL+7, (STRING) 
01 Ad OE AC 90 QO02A MOVB VAL+6, 1(STRING) 
0 AO OD ac 90 b00¢r MOVB VAL+5, ¢(STRING) 
0 AO OC AC 90 00034 MOVB VAL+4, 3(STRING) 
04 A0d 0B AC 90 00039 MOVB VAL+3, 4(STRING) 
05 Ad OA AC 90 OO03E MOVB VAL+2, S5(STRING) 
06 AO 09 AC 90 00043 MOVB VAL+1, 6(STRING) 
07 AO 08 AC 90 00048 MOVB AL, ?(STRING) 
04 0004D RET 
; Routine Size: 78 bytes, Routine Base: _BASSCODE + 00B6 


359 
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H 0449 1 GLOBAL ROUTINE BASSCVT_S_F ( ! Convert string to floating 

>; 36 450 1 STRING_DESC Descriptor for string 

a $23 1 ds 

3; 364 4 ¢ 1 

s 36S 455 1 !4¢ 

3 ? bee : FUNCTIONAL DESCRIPTION: 

: 68 be28 1: Changes a noe G ine $9 to a floating value, permuting the bytes in the process. 
$ 69 457 1! There is n9 J ification for permuti ng the bytes except 

3 4 pees : compatability with RSTS/E BASI 

; g 0460 | FORMAL PARAMETERS : 

: 374 0462 1! STRING_DESC.rt.d Descriptor for the string 

s 575 04635 1! 

3; 376 ree: 1 ! IMPLICIT INPUTS: 

3 77 465 1! 

s 378 0466 1! NONE 

; 79 0467 1! 

: 380 0468 1 ! IMPLICIT OUTPUTS: 

s Sel 0469 1! 

s 38 0470 1! NONE 

; 0471 1! 

3; 384 047 1 ! ROUTINE VALUE: 

s 385 0473 1 ! COMPLETION CODES: 

; 386 0474 1! 

3; 387 0475 1! The resultant floating value. 

: 388 0476 1! 

; 389 0477 1 ! SIDE EFFECTS: 

; 390 0478 1! 

; 391 0479 1! NONE 

3 338 0480 1! 

i 32 i 

; 395 0483 2 BEGIN 

; oF beBs 3 p 

; 398 0486 2 STRING_DESC : REF BLOCK (8, BYTE): 

: 400 0488 CAL 

; 401 0489 RES ULT : VECTOR (4, BYTE) 

3 40 9490 STRING : REF VECTOR C, BYTE); 

: 40 91 

; 404 93 te 

3 $3 be i Permute the bytes, putting the string into the floating result. 

: 607 0495 "STRING = .STRING =DESC COSCSA_POINTER); 

; 408 0496 RESULT COJ = CIF~(.STRING_DESC COSCSW LENGTH LEQU 3) THEN 0 ELSE .STRING (3)); 
: 4609 497 RESULT (1) = (IF STRING~ ESC COSC$W_LENG LEQU $3 THEN 8 ELSE .STRING (2)); 
; 410 98 RESULT = (IF (.STRING_DESC COSCSW_LENGTH) LEQU 1) THEN 0 ELSE .STRING (1)); 
: 411 99 RESULT = (IF (.STRING_DESC COSCS$W_LENGTH) LEQU 0) THEN 0 ELSE .STRING (0)) 
: tig 0500 RETURN (.RESULT); 

s #f 0501 END; ! end of BASSCVT_F_S 
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1 
BASSRSTS_CVT ihese =1984 01:06: AX-11 Bliss-32 V4.0-74 Page 15 t 
1-005 ene e=188e 1:98:85 «HANSA Ode Saaeattecy $2.1 oe 8) 
04 11 00068 BRB 12$ : 
51 02 AO GA 0006A 11$:  MOVZBL 2(STRING), R1 : 
05 AE 51 90 09 12$:  MOVB 1, RESULT+5 : 
01 62 8B! 0 MPW (Re), a : 0556. 
o4 1A 0007 BGTRU 13 : 
1 D4 007 CLRL sR : 
04 11 00079 BRB 14$ : 
51 01 AO 9A 00078 13$:  MOVZBL 1(STRING), R1 : 
06 AE 51 90 OOO7F 148:  MOVB  R1, RESULT+6 : | 
62 B5 00083 TSTW = (RB) t 0557. : 
04 12 00085 BNEQ 15$ : | 
30 D4 0087 CLRL = RO : 
03 11 00089 BRB 16$ : | 
50 60 9A 00088 15$:  MOVZBL (STRING), RO : | 
07 AE 50 90 OO0BE 16$:  MOVB RO, RESULT+7 : | 
50 6E 7D 9009 MOVa RESULT, RO : 0570 
| 04 00095 RET : 0574, 
|; Routine Size: 150 bytes, Routine Base: _BASSCODE + 0156 | 
|; 488 0575 1 
f 489 0576 1 END ! end of module BASSRSTS_CVT | 
: 490 0577 1 | 
; 491 0578 © ELUDOM 
| ! 
(3 PSECT SUMMARY ; 
: Name Bytes Attributes 
|} _BASSCODE 492 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
| i 
; Library Statistics 
lo ‘ 
13 de a Bee sen WN AS pre Ae Swe Symbols -*------ Pages Processing : 
3 File Total Loaded Percent Mapped Time : 
ft  _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 2 0 581 00:01.0 
3 COMMAND QUALIFIERS 


ls OL ISS/CHECK=CF FELD. IMI TIAL OPTIMIZE) /NOTRACE/LIS@L ISS :BASRSTSCV/0B)=0BJS :GASRSTSCY MSRC$:BASRSTSCV/UPDATE=(ENHS:BASRSTSCV 


; Size: 492 code + 0 data bytes 


Elapsed tieer 00:26. 
Lines/CPU Min: 3000 
Lerenes/CPU-Rin: 21498 

paety Used: 72 pages 
Compilation Complete 
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